home *** CD-ROM | disk | FTP | other *** search
/ Bangkok 22 / Bangkok 22.iso / ari.inf next >
Text File  |  1995-04-25  |  4KB  |  167 lines
  1. DefineVariables
  2. Number [ReturnVal1]
  3. Number [ReturnVal2]
  4. Number [ReturnVal3]
  5. Number [ReturnVal4]
  6. Number [ReturnVal5]
  7. Number [ReturnVal6]
  8. Number [ErrCount]
  9. Directory [windir]
  10. Directory [winsdir]
  11. Logical [EnKeyb]
  12. Logical [NetAvail]
  13. Logical [MathPres]
  14. Logical [CDAvail]
  15. logical [Speicher]
  16. Text [DispType]
  17. Number [XMSAvail]
  18. Number [ExtmemPagesActive]
  19. Number [ExtmemPagesAvail]
  20. Number [ExtMemAvail]
  21. Number [ExtMemPres]
  22. Number [ExpMempgavail]
  23. Number [ExpMempgactive]
  24.  
  25. Text [osver]
  26. Text [DosVer]
  27. Text [EmsVer]
  28.  
  29. Text [ProdExecutable]
  30. Text [GroupTitle] := ARIDATA
  31. Text [GroupFile] := ARI.Grp
  32. Text [ExistingGroupName]
  33. Text [InstDir]   
  34. Text [FactsIconF]
  35. Text [IconTitle]
  36. Text [IconFile]
  37.  
  38. EndDefineVariables
  39.  
  40. [EnKeyb] := NoCharacter
  41. [NetAvail] := NoCharacter
  42. [MathPres] := NoCharacter
  43. [CDAvail] := NoCharacter
  44.  
  45. Do SetupDisplay
  46. Do CheckHardware
  47.  
  48. if [errcount] > 1
  49. Dialog UseHeader "Es sind Probleme aufgetreten"
  50. .L Die Installation is auf folgende Probleme getroffen,
  51. .L Sie k÷nnen die Installation fortsetzen oder abbrechen.
  52. [Array1][1]
  53. [Array1][2]
  54. [Array1][3]
  55. [Array1][4]
  56. [Array1][5]
  57. [Array1][6]
  58. [Array1][7]
  59. EndDialog
  60. endif
  61.  
  62. :start
  63. :start
  64.  
  65.  
  66. Do Install1
  67. Solong    
  68.  
  69. Procedure SetupDisplay
  70. SetDefaultBitMap Off
  71. SetBackGroundColor 0 0 0 0 0 255 TopToBottom
  72. settoplineto "ARIDATA - Installation"
  73. setpopupborderto none
  74.  
  75. SetPopupAttrTo YellowOnBlue
  76. ShowWindow maximized
  77.  
  78. EndProcedure
  79.  
  80. Procedure Install1
  81.  
  82. CopyFiles From [installFromDrive]:\ari to [WindowsSystemDirectory]
  83.     curr.dll
  84.     fximg210.vbx
  85.     fxtls210.dll
  86.     fxvid210.vbx
  87.     spin.vbx
  88.     threed.vbx
  89.     vbrun300.dll
  90. EndCopyFiles
  91.  
  92. [ProdExecutable] := [installFromDrive]:\ari\ARI.EXE
  93. [IconTitle] := BANGKOK22
  94. Do AddIcons
  95. Dialog
  96.     Sollten Sie Video fⁿr Windows noch nicht
  97.     auf Ihrem Rechner installiert haben, so
  98.     k÷nnen Sie dies jetzt nachholen, indem Sie
  99.     das VFWSetup - Icon in Ihrem ARIDATA-Verzeichnis
  100.     anklicken
  101. enddialog
  102.  
  103. solong
  104. EndProcedure
  105.  
  106. Procedure CheckHardware
  107. [Number3] := 1
  108.  
  109.  
  110. [windir] := [WindowsDirectory]
  111. [winsdir] := [WindowsSystemDirectory]
  112.  
  113. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  114. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  115. [ExtMemAvail] := ExtendedMemoryAvailable
  116. [ExtMemPres] := ExtendedMemoryPresent
  117. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  118. [ExpMempgActive] := ExpandedMemoryPagesActive
  119. [osver] := OSVersion
  120. [DosVer] := DOSVersion
  121. [EmsVer] := EMSVersion
  122.  
  123.  
  124. [Errcount] := [Number3]
  125.  
  126. EndProcedure
  127.  
  128.  
  129.  
  130.  
  131. Procedure AddIcons
  132.  
  133. ProgramManagerDDe
  134.  
  135.   CreateGroup([GroupTitle])  
  136.   DeleteItem([IconTitle])   
  137.   AddItem([ProdExecutable],[IconTitle])
  138.   [ProdExecutable] := notepad.exe 
  139.   [IconTitle] := Readme
  140.   AddItem(notepad.exe [installFromDrive]:\ari\readme.txt, Readme)
  141.   AddItem([installFromDrive]:\vfw\setup.exe, VFWSetup)
  142.  
  143. EndProgramManagerDDE
  144.  
  145. EndProcedure
  146.  
  147.  
  148. Procedure DDENonFatalErrorTrap
  149. ;; Purpose of DDENonFatalErrorTrap:
  150. ;; If a procedure with this name is present in the script and a non-fatal
  151. ;; Program Manager DDE error occurs, then this procedure will be executed.
  152. ;; 
  153. ;; Possible Text Error Codes Are:
  154. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  155. ;;      ddeInitiate failed
  156. ;;      pmAddItem failed
  157. ;;      pmClose failed
  158. ;;      pmCreateGroup failed
  159. ;;
  160. ;; To trap a DDENonFatalError and respond to it, use the following code
  161. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  162. ;; If [Number1] > 0 
  163. ;;    Dialog
  164. ;;      NonFatal error in AddItem occurred
  165. ;;      Error Text : DDENonFatalError
  166. ;;    EndDialog
  167. EndProcedure